<%

Function dinheiro_get_dinheiro(id_usuario)

		DIM valor
		
		valor = 0
		
		str = "Select dinheiro FROM usuarios WHERE id="&id_usuario
    	Set rs = conexao_geral.Execute(str)
		
		If not rs.eof then
		
			valor = rs("dinheiro")

		End If
		
		dinheiro_get_dinheiro = valor

End Function

Function dinheiro_get_dinheiro_formato(id_usuario)

		DIM saldo, valor
		
		saldo = dinheiro_get_dinheiro(id_usuario)
		
		valor = dinheiro_get_dinheiro_formatado_br(saldo)
		
		dinheiro_get_dinheiro_formato = valor

End Function

Function dinheiro_get_dinheiro_formatado_br(valor)
		
		valor = dinheiro_get_dinheiro_formatado(valor)
		
		dinheiro_get_dinheiro_formatado_br = "Br "&valor

End Function

Function dinheiro_get_dinheiro_formatado(valor)
		
		valor = formatnumber(valor/100,2)
		
		dinheiro_get_dinheiro_formatado = valor

End Function
%>